home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / popupre / mdichild.frm < prev    next >
Text File  |  1995-03-03  |  3KB  |  122 lines
  1. VERSION 2.00
  2. Begin Form frmMDIChild 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "MDI Child"
  6.    ClientHeight    =   975
  7.    ClientLeft      =   3360
  8.    ClientTop       =   4935
  9.    ClientWidth     =   3330
  10.    Height          =   1380
  11.    Left            =   3300
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   975
  16.    ScaleWidth      =   3330
  17.    Top             =   4590
  18.    Width           =   3450
  19.    Begin CommandButton cmdClose 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "Close"
  22.       Default         =   -1  'True
  23.       Height          =   345
  24.       Left            =   1335
  25.       TabIndex        =   0
  26.       Top             =   315
  27.       Width           =   1485
  28.    End
  29.    Begin Image imgButtonUp 
  30.       Height          =   330
  31.       Left            =   2865
  32.       Picture         =   MDICHILD.FRX:0000
  33.       Top             =   15
  34.       Visible         =   0   'False
  35.       Width           =   360
  36.    End
  37.    Begin Image imgButtonDown 
  38.       Height          =   330
  39.       Left            =   2865
  40.       Picture         =   MDICHILD.FRX:0182
  41.       Top             =   345
  42.       Visible         =   0   'False
  43.       Width           =   360
  44.    End
  45.    Begin Image imgPopUp 
  46.       Height          =   330
  47.       Left            =   450
  48.       Top             =   345
  49.       Width           =   360
  50.    End
  51.    Begin Label lblMenuClick 
  52.       BackColor       =   &H000000FF&
  53.       ForeColor       =   &H000000FF&
  54.       Height          =   225
  55.       Left            =   2910
  56.       TabIndex        =   1
  57.       Top             =   735
  58.       Visible         =   0   'False
  59.       Width           =   285
  60.    End
  61. End
  62. Option Explicit
  63.  
  64. Sub cmdClose_Click ()
  65.  
  66.     ' Unload the form when 'Close' is pressed
  67.     Unload Me
  68.  
  69. End Sub
  70.  
  71. Sub Form_Load ()
  72.  
  73.     ' Show 'button up' image initially
  74.     imgPopUp = imgButtonUp
  75.  
  76. End Sub
  77.  
  78. Sub HandleMyPopUp (P_nIndex As Integer)
  79. ' This sub would handle the clicks on the menu entries of the
  80. ' child popup menu received by lblMenuClick from frmMenuContainer
  81.  
  82.     Select Case P_nIndex
  83.  
  84.     Case 0:
  85.  
  86.     Case 1:
  87.     
  88.     Case 2:
  89.     
  90.     Case 3:
  91.     
  92.     End Select
  93.  
  94. End Sub
  95.  
  96. Sub imgPopUp_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  97.  
  98.     ' Show 'button down' image
  99.     imgPopUp = imgButtonDown
  100.  
  101.     ' Pop up the child menu defined in frmMenuContainer
  102.     PopupMenu frmMenuContainer.mnuPopUpChild, 0
  103.  
  104.     ' Show 'button up' image
  105.     imgPopUp = imgButtonUp
  106.  
  107. End Sub
  108.  
  109. Sub lblMenuClick_Change ()
  110. ' The 'Change' event of this label is triggered when a click on
  111. ' a menu entry in frmMenuContainer sets the label caption with the
  112. ' related menu entry index
  113.     
  114.     ' Handle the menu click if an index is available
  115.     If lblMenuClick <> "" Then HandleMyPopUp Val(lblMenuClick)
  116.  
  117.     ' Reset the label for new menu entry clicks
  118.     lblMenuClick = ""
  119.  
  120. End Sub
  121.  
  122.